Tömb elemeinek összege és átlaga (OsszegAtlag.pas) program OsszegAtlag; uses crt; var i,n,s:integer;     a:array [1..30] of integer; BEGIN    write('n:=');    readln(n); Bekérjük a tömbelemek számát ( természetesen ez csak kevesebb lehet, mint 30).    i:=1;    while(i<=n) do begin Végigmegyünk a tömb elemein és beolvassuk a billentyűzetről az a nevű tömb i-edik elemét.       write('a[',i,']:=');       readln(a[i]);       i:=i+1;       end;    s:=0; s-ben fogjuk tárolni a részösszegeket, ezért kezdjük 0-ról    i:=1;    while(i<=n) do begin A ciklus segítségével végigmegyünk a tömb elemein és minden tömbelemet hozzáadunk az s-hez       s:=s+a[i];       i:=i+1;       end;    writeln('A tomb elemeinek osszege= ',s);    writeln('A tomb elemeinek atlaga= ',s/n); Kiírjuk a tömb elemeinek átlagát (elosztjuk az összeget a tömb elemeinek számával). END.